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Prefazione 


Il costo dei componenti dei computer, ed in particolare 
quello dei chip di memoria e dei microprocessori, scende 
vertiginosamente, e così, a distanza di solo due anni dalI in¬ 
troduzione dello Spectrum con processoread8 bite48Kdi 
RAM, la Sinclair può proporre il QL con processore a 32 bit, 
128K di RAM (espandibili fino a 640K), due Microdrive 
incorporati e quattro programmi applicativi di elevata qua¬ 
lità. 

A trarne vantaggio sono naturalmente le prestazioni del 
computer in termini di velocità, di risoluzione grafica, ecc. 

Ma la cosa più interessante del QL è rappresentata certa¬ 
mente dalle caratteristiche del SuperBASIC che dispone di 
istruzioni di struttura che consentono di scrivere programmi 
molto più chiari ed ordinati. 

Per il QL, che dispone dei Microdrive invece delle cas¬ 
sette, ho pensato di realizzare questo libro che si potrebbe 
definire “automatico ", infatti non occorre digitare dei lun¬ 
ghi listati, correggere gli inevitabili errori di digitazione, 
quindi registrare il programma e finalmente usarlo. 

I programmi sono memorizzati su una cartuccia per 
Microdrive e tutto ciò che occorre fare è inserire la cartuc¬ 
cia nel Microdrive 1, premere il tasto F2 e quindi scegliere il 
programma (che viene caricato ed eseguito in modo auto¬ 
matico) semplicemente premendo uno dei tasti indicati in un 
menù; finito di usare il programma, basta premere il tasto 
FI per ritornare al menù in modo da scegliere un altro 
programma. 



Naturalmente i programmi possono essere caricati sepa¬ 
ratamente in memoria nel modo consueto e quindi usati così 
come sono o eventualmente modificati. 

Tutti i programmi usano attraverso il SuperBASIC le 
nuove prestazioni del QL come le finestre di schermo, l’alta 
risoluzione grafica, i caratteri di diverse dimensioni, ecc. 

Gaetano Marano 


IV 



Indice 


PREFAZIONE . Ili 

COPIA DEI PROGRAMMI . 1 

USO DELLA CARTUCCIA . 3 

NOMI DEI PROGRAMMI. 5 

SCRITTE PUBBLICITARIE . 7 

LETTURA VELOCE . 9 

OROLOGIO PER QL . 15 

SELEZIONE COLORI QL . 19 

DESIGN FINESTRE QL . 23 

ITALIA . 27 

PLOTTER . 31 

PIANO 2 OTTAVE, 25 NOTE . 35 

PROGRAMMATORE DI SUONI . 37 

ROULETTE . 41 

SIRENA . 43 


v 



















Copia dei programmi 


Prima di usare la cartuccia con i programmi allegata al 
libro, può essere utile farne una copia ai back-up nel caso 
l’originale dovesse danneggiarsi. 

A tale scopo nella cartuccia è incluso un apposito pro¬ 
gramma. Per realizzare la copia occorre operare come 
segue: 

— Accendere il computer. 

— Premere il tasto F2 (modo TV). 

— Inserire la cartuccia con i programmi nel Microdrive 1 
(quello a sinistra) facendo la massima attenzione a non 
sbagliare. 

— Inserire una cartuccia nuova nel Microdrive 2 (quello a 
destra). 

— Entrambe le cartucce vanno inserite bene nei Micro¬ 
drive. 

— Digitare il comando: LRUN mdv 1 - copia e premere 
ENTER. 

Se non ci sono inconvenienti nella cartuccia nuova dopo 
circa dieci minuti essa conterrà una copia esatta dei pro¬ 
grammi tranne il programma copia. 

Naturalmente la copia della cartuccia, come qualsiasi 
altra copia, è da considerare per ESCLUSIVO USO PER¬ 
SONALE e non può essere commercializzata essendo 
coperta da Copyright. 
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Uso della cartuccia 


Come si è accennato nella prefazione, i programmi del 
libro contenuti nella cartuccia possono essere caricati in 
maniera automatica. 

Per far ciò occorre eseguire le seguenti operazioni. 

— Accendere il computer (al momento dell’accensione, 
dello spegnimento o del reset del computer, nei Micro¬ 
drive non deve esserci alcuna cartuccia, come consi¬ 
gliato nel manuale del QL). 

— Inserire bene la cartuccia con i programmi nel Micro¬ 
drive 1 (quello a sinistra). D'ora in poi la cartuccia con i 
programmi deve rimanere sempre nel Microdrive 1 e va 
tolta solo prima di spegnere il computer. 

— Premere il tasto F2 (modo TV). Tutti i programmi sono 
stati realizzati per funzionare nel modo TV in maniera 
da consentirne l'uso sia a coloro che dispongono di un 
monitor ad alta risoluzione sia a que li che hanno un 
televisore o un monitor a bassa risoluzione. 

A questo punto il computer cerca sulla cartuccia il pro¬ 
gramma “boot" che viene caricato ed eseguito. 

A sua volta il programma boot carica ed esegue il pro¬ 
gramma “menu" che visualizza sullo schermo i titoli dei 
vari programmi con vicino una lettera che corrisponde al 
tasto da premere per caricare il programma stesso in modo 
automatico. 

Ad esempio se si preme il tasto J si ottiene il proqramma 

roulette'. 

Quando si è caricato uno dei programmi, per caricarne 
un altro non occorre ripetere di nuovo le stesse operazioni. 
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questo perchè tutti i programmi dispongono di un comando 
(tasto FI ) che consente di interrompere l’esecuzione e ritor¬ 
nare al menù. 

Da notare che, a volte, nei passaggi dal menù ad un 
programma o da uno dei programmi al menù, il computer 
sembra bloccarsi per qualche secondo, un tempo durante il 

3 uale riorganizza la memoria; in questi casi occorre atten¬ 
ere, senza premere dei tasti e senza togliere la cartuccia 
dal Microdrive. 
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Nomi dei programmi 


La lista qui in basso comprende i programmi ed i loro 
nomi sulla cartuccia; tutti i programmi (tranne plot-demo) 
possono essere caricati in memoria, oltre che nel modo già 
descritto in precedenza, anche con una istruzione del tipo: 

LOAD mdv 1 — nome — programma 
oppure, se si vuole caricare ed eseguire il programma, con 
l'istruzione: 

LRUN mdv 1 — nome — programma 

Se si vuole utilizzare uno dei programmi da solo, può 
essere utile togliere dal programma stesso la linea che 
carica il menù quando si preme il tasto FI (LRUN mdv 1 — 
menu), in questo modo, premendo FI, il programma sem¬ 
plicemente si ferma all’istruzione di STOP (che è già pre¬ 
sente in tutti i programmi). 

PROGRAMMA NOME FILE 


SCRITTE PUBBLICITARIE 

display 

LETTURA VELOCE 

lettura 

OROLOGIO PER QL 

orologio 

SELEZIONE COLORI QL 

colori 

DESIGN FINESTRE QL 

Windows 

ITALIA 

Italia 

PLOTTER 

plotter 


/segue/ 
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/seguito/ 


Dimostrativo Plotter 

PIANO 2—OTTAVE 25-NOTE 

plot—demo 
piano 

PROGRAMMATORE DI SUONI 

sound—p 

ROULETTE 

roulette 

SIRENA 

sirena 

Menù 

menu 

Programma di caricamento automatico 

boot 

Programma di copia 

copia 
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SCRITTE 

PUBBLICITARIE 


I! programma chiede di inserire per prima cosa un testo di 
massimo tre righe che può contenere, ad esempio, un mes¬ 
saggio pubblicitario, una serie di prezzi, delle quotazioni di 
borsa, delle offerte speciali, dei comunicati importanti, ecc. 

Quindi si deve premere uno dei tasti da 1 (più veloce) a 5 
(più lento) per stabilire la velocità di rotazione delle scritte 
pubblicitarie. 

Premuto il tasto della velocità, sullo schermo appare l’ini¬ 
zio della scritta che inizia a ruotare da destra verso sinistra 
in maniera ripetitiva. 

La rotazione della scritta può essere interrotta premendo 
il tasto F3, per inserire una scritta diversa, o premendo il 
tasto FI, per uscire dal programma e ritornare al menù. 


1000 REMark » SCRITTE PUBBLICITARIE « 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark (c) Gruppo Edit. Jackson 

1050 REMark - 

10<40 set 

1070 b*=F!LL*C " ,28) 

1080 REPeat dati 
1090 inser 
1100 PAPER 1 
1110 AT 3,0:PRINT b* 

1120 AT 5,0:PRINT b* 

1130 PRINT *0,* F3_Nuova scr i 11 a', ’Fl_Esc i * 

1140 PAPER 0 
1150 d*=A» 
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1160 REPeat scritta 

1170 PAUSE v*4-3 

1180 AT 4,0:PRINT d*<l T0 28) 

1190 d*=d*(2 TO) 

1200 1F LEN<d*><28 THEN d*=d* & A* 

1210 IF CODE(1NKEY*<2>>=240 THEN EXIT scritta 

1220 IF C0DE(INKEY*<2>>=232 THEN EXIT dati 

1230 END REPeat scritta 

1240 END REPeat dati 

1250 BEEP 3000,10 

1240 LRUN mdvl_menu 

1270 STOP 

1280 REMark - 

1290 DEFine PROCedure set 
1300 MODE 8:SCALE 200,1,1 
1310 PAPER 0 :INK 7 

1320 FLASH 0:UNDER 0 

1330 OVER 0:FILL 0 

1340 CS12E 3,1:CLS 

1350 END DEFine set 

1360 REMark - 

1370 DEFine PROCedure inser 
1380 CS1ZE 2,0:CLS 

1390 PR1NT "Inserire una scritta pubblicitaria di" 

1400 INPUT "massimo 3 righe e premere ENTER "jAS 

1410 PRINT 

1420 PRINT “Inserire velocita' < tasti 1—5 )" 

1430 REPeat veloc 

1440 v=C0DE<lNKEY*>-48 

1450 IF v>0 AND v<4 THEN EXIT veloc 

1440 END REPeat veloc 

1470 BEEP 3000,15 

1480 A*=" " tc A* 

1490 IF LEN<A*><28 THEN A*=A* & FILLSC " ,28-LEN(A») ) 
1500 set 

1510 END DEFine inser 

1520 REMark - 
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LETTURA VELOCE 


Questo programma può essere usato per incrementare la 
propria velocità di lettura. 

In una serie di istruzioni DATA, sono contenute 200 
parole che vengono visualizzate in maniera casuale in un 
riquadro sullo schermo e per un tempo molto breve. 

La prima frase viene sempre visualizzata per un tempo di 
0.1 secondi che viene indicato in anticipo, quindi esce la 
frase scelta casualmente. 

Sparita la frase il computer chiede di scriverla, quindi la 
confronta con la frase appena visualizzata. 

Se la frase inserita è uguale a quella scelta dal computer 
esce la scritta Frase: ESATTA se invece la frase inserita è 
diversa da quella visualizzata esce la scritta Frase: SBA¬ 
GLIATA!! 

Inoltre, ogni volta che si riconosce esattamente una frase, 
il tempo di visualizzazione della successiva viene dimezzato 
(fino ad un minimo di 0.02 secondi), mentre ogni volta che si 
sbaglia viene raddoppiato (fino ad un massimo di 1 
secondo). 

Alle 200 parole già incluse nel programma se ne possono 
aggiungere molte altre, inserendo ciascuna parola o frase 
(di massimo 20 caratteri) in una istruzione DATA diversa e 
numerando ogni nuova linea a partire dal numero di linea 
2201 e con un incremento di uno (2201, 2202, 2203, ecc.), 
l'ultima linea invece deve contenere sempre l’istruzione 
DATA che serve al programma per contare le frasi. 

Anche in questo programma è possibile ritornare al menù 
premendo il tasto FI in qualsiasi momento tranne che 
durante l'introduzione della frase. 
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1000 REMark ♦** LETTURA VELOCE *»* 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c> Gruppo Edit. Jackson 

1050 REMark - 

1040 set : w=0 : RESTORE 2001 

1070 LINE 75.134 T0 245.134 T0 245,154 T0 75,154 T0 75.134 
1080 PAPER OilNK 4 
1090 sp*=FILL*<" MD) 

1100 AT 5,9sPRINT "attendere un'attimo " 

1110 DIM temp*<4,12> 

1120 temp*<l>="01 0.02 Sec." 

1130 temp*<2>="02 0.04 Sec." 

1140 temp«3)="05 0.1 Sec." 

1150 temp«<4)="10 0.2 Sec." 

1140 temp*<5>="25 0.5 Sec." 

1170 temp*< 4>=“50 1 Sec." 

1180 tempo=3 

1190 REPeat cont_frasi 

1200 READ f$ 

1210 IF f*="H* THEN EXIT cont_frasi 
1220 w=w+l 

1230 END REPeat cont_frasi 

1240 PRINT *0." FI_Esci":AT 5.9:PRINT sp*;sp< 

1250 REPeat lett 

1240 PAUSE 100-.INK 4:PAPER 1 

1270 AT 10,8iPRINT "Durata Frase * !temp<<tempo,4 TO) 

1280 PAUSE 80+RND<B0):INK 7:PAPER 0 
1290 IF C00E<INKEY«3>>=232 THEN EXIT lett 
1300 p=temp<<tempo,1 TO 2) 

1310 RESTORE 2000+RNO<1 TO w) 

1320 READ fr* :IF LEN<fr*>>20 THEN fr*=fr*<l TO 20) 

1330 AT 5,9iPRINT fr* 

1340 PAUSE p 

1350 AT 5,9!PRINT FILL*<" ",20> 

1340 IF C0DE(INKEY*<3))=232 THEN EXIT lett 

1370 INK 4:PAPER 1sAT 10,2:PRINT "Inserire la frase e premere ENTER 
1380 INK 7:AT 12,9:INPUT x$ 

1390 AT 12,9:PRINT F1LL*<" ",30> 

1400 r=0 : IF x*=fr* THEN r=l 

1410 IF r=l THEN 

1420 AT 10,1 SPRINT " Frase: ESATTA"jsptjsp*:BEEP 2000,3 

1430 ELSE 

1440 AT 10,1 jPRINT " Frase: SBAGLIATA "":sp*:BEEP 4000,50 

1450 END IF 

1440 IF CODE<INKEY<< 3)>=232 THEN EXIT lett 

1470 IF r=l AND tempo>l THEN tempo=tempo-l 

1480 IF r=0 AND tempo<4 THEN tempo=tempo+1 

1490 END REPeat lett 

1500 BEEP 3000,10 

1510 LRUN mdvl_menu 

1520 STOP 

1530 REMark - 

1540 DEFine PROCedure set 








1550 MODE 8:SCALE 200,1,1 

1560 PAPER 1 :INK 7 

1570 FLASH 0:UNDER 0 

1580 OVER 0iFILL 0 

1590 CS12E 2,0:CLS 

1600 END DEFine set 

1610 REMark —.—-- 

2000 REMark CATALOGO PAROLE E FRASI 

2001 DATA ’ BIANCO" 

2002 DATA 'RÓSSO* 

2003 DATA "VERDE* 

2004 DATA "GIALLO" 

2005 DATA *8LU* 

2006 DATA 'NERO* 

2007 DATA "ROMA" 

2008 DATA "MILANO* 

2009 DATA "FIRENZE" 

2010 DATA "NAPOLI" 

2011 DATA "PARIGI" 

2012 DATA "BERLINO* 

2013 DATA "LONDRA" 

2014 DATA "MADRID* 

2015 DATA "NEW YORK* 

2016 DATA "LOS ANGELES" 

2017 DATA "ATENE" 

2018 DATA "TOKYO" 

2019 DATA "MOSCA" 

2020 DATA "BUENOS AIRES" 

2021 DATA "GINEVRA" 

2022 DATA "MICROPROCESSORE" 

2023 DATA "KEYBOARD" 

2024 DATA "MONITOR" 

2025 DATA "QUANTUM LEAP" 

2026 DATA "AEREO" 

2027 DATA "NAVE" 

2028 DATA "TRENO" 

2029 DATA "COMPUTER" 

2030 DATA "FOTOGRAFIA* 

2031 DATA "ATTRICE" 

2032 DATA "AUTOMOBILE" 

2033 DATA "CREDIT CARD* 

2034 DATA "LINEA" 

2035 DATA "ARTICOLO" 

2036 DATA "INDIRIZZO" 

2037 DATA "MOTORE" 

2038 DATA "CAPIRE" 

2039 DATA "VOLARE" 

2040 DATA "CAMMINARE" 

2041 DATA "NAPOLEONE" 

2042 DATA "GARIBALDI" 

2043 DATA "CESARE" 

2044 DATA "WASHINGTON" 

2045 DATA "PRINTER* 

2046 DATA "UOMO" 

2047 DATA "DONNA" 





2048 DATA "CASA" 

204? DATA "SCALA" 

2050 DATA 'ASCENSORE" 

2051 DATA "RUOTA" 

2052 DATA "LIBRO" 

2053 DATA "JACKSON* 

2054 DATA "BYTE* 

2055 DATA "BUONO" 

2056 DATA "CATTIVO" 
205? DATA "VELOCE" 

2058 DATA "LENTO" 

205? DATA "GRANDE" 

2060 DATA "PICCOLO" 

2061 DATA "LEGGERO" 

2062 DATA "PESANTE" 

2063 DATA "MARIO* 

2064 DATA "LAURA" 

2065 DATA "FRANCO" 

2066 DATA “ANTONI0" 

2067 DATA "MARIA* 

2068 DATA "FRANCESCO" 
206? DATA "BARBARA" 

2070 DATA "GATTI" 

2071 DATA "ELEFANTE" 

2072 DATA "DELFINO" 

2073 DATA "GIRAFFA" 

2074 DATA "WT1L0PE" 

2075 DATA "LEONE" 

2076 DATA "CONDOR" 

2077 DATA "TIGRE* 

2078 DATA "DOBERMAN" 
207? DATA "IPPOPOTAMO" 

2080 DATA "C**IE" 

2081 DATA "BASIC" 

2082 DATA "PASCAL" 

2083 DATA "FORTRAN" 

2084 DATA "FORTH" 

2085 DATA "LISP" 

2086 DATA "PROLOG" 

2087 DATA "LOGO* 

2088 DATA "COBOL" 

208? DATA "APL* 

20?0 DATA "CALENDARIO" 
20? 1 DATA "TRANSISTOR" 
20?2 DATA "STOFFA" 

20?3 DATA "TEATRO" 

20?4 DATA "RIVISTA* 
20?5 DATA "SEMAFORO" 
20?6 DATA 'VOLERE* 

20?7 DATA "CANTARE" 
20?8 DATA "JET" 

20?? DATA "SCRIVERE" 

2100 DATA "LEGGERE" 

2101 DATA "CALIFORNIA" 

2102 DATA "AMICO" 
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2103 DATA 'SAPORI' 

2104 DATA "PROGRAMMA" 

2105 DATA -DEBUG" 

2106 DATA -DISK" 

2107 DATA "MUSICA' 

2108 DATA "CANTANTE" 

2109 DATA "TELEFONO* 

2110 DATA "TELEGRAFO" 

2111 DATA "TELEX* 

2112 DATA "CASSETTA" 

2113 DATA "LOCALI* 

2114 DATA "NETWORK" 

2115 DATA "JAZZ" 

2116 DATA -STATI- 

2117 DATA "FORMULA" 

2118 DATA "BORSA" 

2119 DATA "PARTICELLA" 

2120 DATA "PROTONE" 

2121 DATA "QUARK" 

2122 DATA "NEUTRINO" 

2123 DATA "ELETTRONE" 

2124 DATA “ACQUA" 

2125 DATA "ARANCIA" 

2126 DATA “ANANAS" 

2127 DATA ■POMODORO" 

2128 DATA "KIWI- 

2129 DATA "TESTA" 

2130 DATA -BRACCIO" 

2131 DATA "GAMBA" 

2132 DATA "OCCHI" 

2133 DATA -WSO" 

2134 DATA "CUORE" 

2135 DATA "UDIRE" 

2136 DATA “VEDERE" 

2137 DATA "GIACCA" 

2138 DATA "CRAVATTA" 

2139 DATA "METRO" 

2140 DATA -INCH- 

2141 DATA -CACCIAVITE" 

2142 DATA "CARBURATORE 

2143 DATA 'STETOSCOPIO 

2144 DATA "PAROLE" 

2145 DATA "PAGINE" 

2146 DATA "CONTENITORE 

2147 DATA "DECOLLO" 

2148 DATA "DESIGN* 

2149 DATA -ARTISTA" 

2150 DATA "RAGIONE" 

2151 DATA “NASTRO" 

2152 DATA -MICROFONO" 

2153 DATA -STRUMENTO* 

2154 DATA -P1AN0F0RTE" 

2155 DATA "CLARINETTO" 

2156 DATA "SAX* 

2157 DATA "SYNTHES1ZER 



2158 DATA 'ECONOMIA" 

2159 DATA “MONETA" 

2160 DATA 'DOLLARO" 

2161 DATA 'STERLINA' 

2162 DATA “CAMBIO' 

2163 DATA "SOFFITTA' 

2164 DATA 'PANINO' 

2165 DATA 'SPAGHETTI" 

2166 DATA 'HAMBURGHER" 

2167 DATA "WHISKY" 

2168 DATA 'CANCELLARE" 

2169 DATA “MEMORIA" 

2170 DATA 'AUTOBUS" 

2171 DATA "COMBINAZIONE" 

2172 DATA "URAftWO" 

2173 DATA 'SPACE SHUTTLE' 

2174 DATA 'ASTRONAUTA' 

2175 DATA "PIOGGIA" 

2176 DATA "CAMINETTO" 

2177 DATA 'STRADA" 

2178 DATA "PERCORRERE" 

2179 DATA “INDUSTRIA" 

2180 DATA ’MICRODRIVE" 

2181 DATA "SINCLAIR" 

2182 DATA "UNIX" 

2183 DATA "BLOCCHETTO* 

2184 DATA "DINOSAURO" 

2185 DATA “DIZIONARIO" 

2186 DATA "UIDEOGAMES" 

2187 DATA 'STAR WARS” 

2188 DATA "PRODUZIONE" 

2189 DATA "ALLENAMENTO" 

2190 DATA "BASKET" 

2191 DATA "DISPLAY" 

2192 DATA "PIXEL" 

2193 DATA “LOGARITMO" 

2194 DATA “TRIGONOMETRIA" 

2195 DATA "HOBBY" 

2196 DATA "TELEFILM' 

2197 DATA "NOTIZIE" 

2198 DATA "SOPRANO' 

2199 DATA "PENULTIMA" 

2200 DATA "ULTIMA" 

9999 DATA "#" : REMark FINE LISTA — 
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OROLOGIO PER QL 


Il QL dispone di un orologio interno, che funziona quando 
il computer è acceso, che viene incrementato automatica- 
mente. 

Il programma usa questo orologio interno come base dei 
tempi per visualizzare sullo schermo l'orario, in forma ana¬ 
logica (con le lancette) e digitale (in cifre), e la data (giorno, 
mese ed anno). 

AN’inizio il programma chiede di inserire data e orario, e 
quindi di premere ENTER appena l'ora reale è uguale 
all’ora inserita; naturalmente, poiché l'orologio è in fun¬ 
zione solo a computer acceso, occorre eseguire questa ope¬ 
razione ogni volta che si usa il programma. 

Al solito premendo FI si ritorna al menù. 


1000 REMark «» OROLOGIO PER QL »* 

1010 REMark --- 

1020 REMark di Gaetano Marano 

1030 REMark--- 

1040 REMark <c) Gruppo Edit. Jackson 

1050 REMark - 

1040 PAPER 0 :INK 7:UNDER 0:FLASH 0 

1070 OVER 0:FILL OiCSIZE 2,0;CLS 

1080 CLS *0 

1090 set_c!ock 

1100 set_tinestre 

1110 quadrante 

1120 d*=DATE* 

1130 hx=0:hy=0:mx=0:my=0 
1140 lancette 
1150 retr_d 

1140 AT 18,2:PRINT "Fl_Esci" 

1170 REPeat orario 
1180 d*=DATE* 
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1190 

AT #6,1,0:PRINT #6,” ORE “sd*<13 TO 20) 


1200 

IF d»(19 TO >=0 THEN lancette s PAUSE 

25 


1210 

IF CODE<INKEY<< 3)>=232 THEN EXIT orario 


1220 

END REPeat orario 



1230 

CLOSE #5:CL0SE #6 



1240 

BEEP 3000,10 



1250 

LRUN mdvl menu 



1260 

STOP 



1270 

REMark - 



1280 

DEFine PROCedure re-fr d 



1290 

AT #6,0,0 



1300 

IF dS<10 T0 11X10 THEN PR1NT #6,d*<l 

TO 12)i 


1310 

IF d*<10 TO 11)>9 THEN PRINT #6,d*<10 

T0 12); 


1320 

mesesPRINT #6,d«l TO 5>;F1LL*<" '.4) 



1330 

AT #6,1,0SPRINT #6," ORE" 



1340 

END DEFine re-fr d 



1350 

REMark - 



1360 

DEFine PROCedure mese 



1370 

n*=d«6 T0 8) 



1380 

IF n*="Jan" THEN PRINT #6,"Gennaio ": 



1390 

IF n$="Feb" THEN PRINT #6,"Febbraio " 



1400 

IF n*="Mar" THEN PRINT #6,"Marzo "j 



1410 

IF n*="Apr" THEN PRINT #6,"Apri le "; 



1420 

IF n*=“May" THEN PRINT #6,"Maggio 



1430 

IF n*="Jun" THEN PRINT #6,"Giugno "j 



1440 

IF n<="Jul" THEN PRINT #6,"Luglio "; 



1450 

IF n«=*Aug" THEN PRINT #6,"Agosto "; 



1460 

IF n*=*Sep" THEN PRINT #6,"Setterabre 

! 


1470 

IF n*="0ct" THEN PRINT #6,"Ottobre “i 



1480 

IF n*="Nov" THEN PRINT #6."Novembre " 



1490 

IF n<=*Dec" THEN PRINT #6,"Dicembre " 



1500 

END DEFine mese 



1510 

REMark - 



1520 

DEFine PROCedure quadrante 



1530 

FOR ang=0 TO 359 STEP 6 



1540 

x=90*SIN<RAD< ang)>+100 



1550 

y=90*COS<RAD< ang))+100 



1560 

IF ang-INT<ang/30)*30>0 THEN CIRCLE 

#5,x,y,1.5, 

,0 

1570 

IF ang-INT<ang/30)«30=0 THEN CIRCLE 

#5,x,y,4.5, 

,0 

1580 

END FOR ang 



1590 

END DEFine quadrante 



1600 

REMark - 



1610 

DEFine PROCedure lancette 



1620 

INK #5,6:LINE #5,100,100 T0 hx.hy 



1630 

LINE #5,100,100 TO mx,my:INK #5,0 



1640 

hx=55*SIN<RAD< <d*<13 TO 14)*30>>>♦100 



1650 

hy=55*C0S<RAD< <d*<13 TO 14)*30)))+ 100 



1660 

mx=80*SIN<RAD<<d*<16 TO 17)*6)))+100 



1670 

my=80*COS<RAD<<d»<16 TO 17)*6)))+100 



1680 

LINE #5,100,100 TO hx,hy 



1690 

LINE #5,100,100 TO mx,my 



1700 

FILL #5,1 :CIRCLE #5,100,101,4.5,1,0:FILL #5,0 


1710 

IF d*<13 TO 14)=0 AND d*<16 TO 17)=0 AND d»<19 TO 

20)=0 THEN re+r d 

1720 

END DEFine lancette 



1730 

REMark - 
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1740 DEFine PROCedure se t_t i nestre 
1750 OPEN #5, scr_235xl70a240x44 
17(40 PAPER *5,6;80RDER *5,3,3 

1770 SCALE *5,200,0,0iCSIZE *5,2,0 

1780 INK *5,0 :CLS *5 
1790 OPEN *4, scr_230x55a37x14 
1800 PAPER *4,1 :BORDER *6,5,4 
1810 INK *(4,7:CSIZE *4,2,1 :CLS *6 

1820 END DEFine se t_-* inestre 

1830 REMark - 

1840 DEFine PROCedure set_clock 
1850 PAPER 0 :INK 4; CLS 

1860 sp*=FILL*(“ MO) 

1870 PRINT “Inserire (*NO“ 

1880 REPeat anno 

1890 AT 3,1:INPUT a 

1900 IF a>1941 AND a<3000 THEN EXIT anno 
1910 AT 3,1:PRINT sp* 

1920 END REPeat anno 

1930 CLSiPRINT “Inserire MESE (1—12)“ 

1940 REPeat mes_e 

1950 AT 3,1:INPUT m 

1960 IF m>=l AND m(=12 THEN EXIT raes_e 

1970 AT 3,1 :PRINT sp* 

1980 END REPeat mes_e 

1990 CLSiPRINT “Inserire SIORNO (1—31)" 

2000 REPeat giorno 

2010 AT 3,1:INPUT g 

2020 IF g>=l AND g(=31 THEN EXIT giorno 
2030 AT 3,1:PRINT sp* 

2040 END REPeat giorno 

2050 CLSiPRINT “Inserire ORE (0—23)“ 

2060 REPeat ore 

2070 AT 3,1:INPUT o 

2080 IF o>=0 AND o<=23 THEN EXIT ore 

2090 AT 3,1iPRINT sp* 

2100 END REPeat ore 

2110 CLSiPRINT “Inserire MINUTI (0—59)" 

2120 REPeat minuti 

2130 AT 3,1 : INPUT min 

2140 IF min>=0 AND min(=59 THEN EXIT minuti 
2150 AT 3,1iPRINT sp* 

2160 END REPeat minuti 

2170 CLSiPRINT “Inserire SECONDI (0—59)“ 

2180 REPeat secondi 

2190 AT 3,1:INPUT s 

2200 IF s>=0 AND s(=59 THEN EXIT secondi 
2210 AT 3,1iPRINT sp* 

2220 END REPeat secondi 

2230 CLS:INK 0 : PAPER 6;PRINT " Alle ore “: 
2240 o*=o:IF o(10 THEN o*=“0“ & o 
2250 PRINT o*;":“: 

2260 m*=min: IF min(10 THEN m*="0* & min 
2270 PRINT m*j“:“: 





2280 s$=s! IF s<10 THEN s*='0" 4 s 
2290 PRINT s<;" esatte > 

2300 PRINT “ premere ENTER 

2310 INPUT enter* 

2320 SDATE a,m,g,o,min,s 

2330 BEEP 3000,5 

2340 INK 7:PAPER OiCLS 

2350 END DEFine set_cldck 

2360 REMark - 
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SELEZIONE COLORI 
QL 


Il QL d ispone di solo 4 colori in alta risoluzione e di 8 in 
bassa risoluzione; tuttavia, combinando tra loro questi 
colori usando l’effetto ‘stóppie’ si possono ottenere decine 
di sfumature diverse. 

L’effetto stóppie, che può essere di quattro tipi diversi, 
consiste nell’alternare pixel di due colori in modo che il 
colore finale sia il risultato dei due colori iniziali. 

Ad esempio con dei pixel gialli e rossi sistemati a scac¬ 
chiera (stipple 3) si ottine una sfumatura arancione. 

L’effetto può essere usato sia con PAPER, per il fondo, che 
con INK (ad esempio per colorare, con FILL, l’interno di 
figure chiuse con una particolare sfumatura). 

Naturalmente, dato che le sfumatura sono molte, può 
essere difficile scegliere quelle adatte, per cui si può utiliz¬ 
zare questo programma che visualizza tutti i colori disponi¬ 
bili con il relativo codice INK (o PAPER) da usare per 
ottenerli, e questo sia nel modo a 4 che ad 8 colori. 

All’inizio, il programma chiede di premere il tasto 4 o il 
tasto 8 per scegliere il MODO, appunto a 4 o ad 8 colori, 
quindi visualizza le prime 16 sfumature di colore (da INK 0 
a INK 15). 

Per vedere le altre sfumature o per ritornare a quelle 
precedenti si devono usare i tasti di cursore in alto e cur¬ 
sore in basso (i tasti vicini ad ALT). 

In qualsiasi momento si può passare al modo 4 se si è nel 
modo 8 e viceversa premendo il relativo tasto. 
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Da notare che, sebbene il programma sia utilizzabile 
anche su monitor a bassa risoluzione o su TV, l'effetto è 
visibile particolarmente bene su monitor ad alta risoluzione 
nei quali i vari pixel risultano più definiti. 

Al solito con FI si ritorna al menù. 


1000 REMark * SELEZIONE COLORI QL * 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c> Gruppo Edit. Jackson 

1050 REMark - 

1060 set : testo 

1070 REPeat scelta 

1080 cd=C0DE<INKEY$<5>> 

1090 IF cd=52 OR cd=56 THEN colori 

1100 IF cd=232 THEN EXIT scelta 

1110 END REPeat scelta 

1120 8EEP 3000,10 

1130 LRUN mdvl_menu 

1140 STOP 

1150 REMark - 

1 liiO DEFine PROCedure set 
1170 MODE 8iSCALE 200,1 ,1 
1180 PAPER 0 :INK 7 

1190 FLASH OiUNDER 0 

1200 OVER 0 :FILL 0 

1210 CSIZE 2,0:CLS:CLS #0 

1220 END DEFine set 

1230 REMark - 

1240 DEFine PROCedure testo 
1250 INK 5sCLS 

1260 PRINT MI QL dispone, per INK e PAPER, di" 

1270 PRINT "di 8 colori in bassa risoluzione e di“ 

1280 PRINT *4 colori in alta, che possono essere" 

1290 PRINT "combinati per ottenere delle altre" 

1300 PRINT "sfumature di colore (ad esempio per" 

1310 PRINT "colorare con FILL delle figure" 

1320 PRINT "chiuse) usando l'effetto 'Stipple'." 

1330 PRINT "Questo programma visualizza tutte le* 

1340 PRINT "sfumature ottenibili con le varie* 

1350 PRINT "combinazioni di colore e di Stipple," 

1360 PRINT "in modo da scegliere quelle piu'" 

1370 PRINT ‘adatte al proprio programma." 

1380 PRINTiINK 4:PRINT “Premere il tasto per vedere le" 
1390 PRINT "sfumature di colore nel MODO 4, o* 

1400 PRINT "il tasto per vedere le sfumature" 

1410 PRINT "di colore nel MODO 8.MINK 7 
1420 PRINT:PRINT:PRINT " Fl_Esci" 

1430 INK 4:FLASH 1sAT 13,17:PRINT *4" 
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1440 AT 15,9:PRINT "8":INK 7:FLASH 0 
1450 END DEFine testo 

1460 REMark - 

1470 DEFine PROCedure colori 
1480 IF cd=52 THEN MODE 4iCLS 
1490 1F cd=56 THEN MODE 8:CLS 

1500 PRINTttO ,* Scelta con tasti ■ (CHR*< 190) ; ■ e * jCHR»<191 ) j ■ Fl_esci" 
1510 PRINT #0,“ Tasto_4=M0DE 4 Tasto_8=MODE 8" 

1520 c_v=l : palette 

1530 REPeat selez 

1540 cd=C0DE<lNKEY«<5)> 

1550 1F cd=52 OR cd=56 THEN colori 

1560 IF cct=232 THEN EXIT scelta 

1570 IF cd=208 »ID c u.<l6 THEN c_v=c_v+l : palette 

1580 IF cd=216 AND c v>l THEN c v=c v-1 : palette 

1590 END REPeat selez 
1600 END DEFine colori 

1610 REMark - 

1620 DEFine PROCedure palette 
1630 k=(c_u-l)*16 
1640 CSI2E 2,0:CLS:INK 7:PAPER 1 
1650 AT 0,1:PRINT ■INK ";k 
1660 AT 0,10:PRINT ■INK ";k+l 
1670 AT 0,19:PRINT "INK ’;k+2 
1680 AT 0,28:PRINT "INK ";k + 3 
1690 AT 5,1 SPRINT “INK * jk + 4 
1700 AT 5,10SPRINT "INK ■jk + 5 
1710 AT 5,19sPRINT 'INK ";k+6 
1720 AT 5,28sPRINT “INK •;k+7 
1730 AT 10,1 SPRINT "INK “;k + 8 
1740 AT 10,10 SPRINT "INK "jk+9 
1750 AT 10,19SPRINT "INK " ;k+10 
1760 AT 10,28sPRINT "INK "ik+11 
1770 AT 15,1 SPRINT "INK ”;k + 12 
1780 AT 15,10:PRINT "INK “jk+13 
1790 AT 15,19:PRINT "INK "jk+14 
1800 AT 15,28:PRINT "INK “jk+15 
1810 PAPER 0 

1820 FOR xc=l0 TO 253 STEP 80 
1830 FOR yc=l60 T0 10 STEP -50 

1840 INK k + INT<(xc-10>/80) + 4»< <150-(yc-10))/50) 

1850 FILL 1 

1860 LINE xc,yc T0 xc+71,yc T0 xc+71,yc+29 TO xc,yc+29 TO xc,yc 

1870 FILL 0 

1880 END FOR yc 

1890 END FOR xc 

1900 INK 7 

1910 END DEFine palette 

1920 REMark - 
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DESIGN FINESTRE QL 


Un’altra caratteristica interessante del QL è certamente 
quella delle finestre di schermo ognuna delle quali può 
avere un suo colore per il fondo, il bordo ed il testo, delle 
coordinate grafiche e delle dimensioni dei caratteri indi- 
pendenti dallo schermo principale e dalle altre finestre. 

Le dimensioni delle finestre ed il canale assegnato a cia¬ 
scuna, possono essere stabilite con una istruzione OPEN #, 
scr — mentre la finestra già creata può essere spostata 
tramite l’istruzione WINDOW. 

Una difficoltà connessa all’uso delle finestre, e che viene 
risolta appunto da questo programma, è che per trovare la 
giusta combinazione di colori, dimensioni e posizioni sullo 
schermo delle varie finestre occorre procedere per vari, 
noiosi tentativi. 

Con questo programma, invece, ogni finestra può essere 
spostata, modificata nelle dimensioni e colorata più volte 
fino a trovare la combinazione giusta. 

Il programma chiede per prima cosa di inserire il numero 
di canale che va assegnato alla finestra che si sta per 
creare. 

Inserito il numero del canale (che deve essere maggiore di 
3) il programma visualizza una finestra iniziale da modifi¬ 
care, quindi premendo i 4 tasti di cursore (i tasti vicini a 
CTRL e ad ALT), sarà possibile spostare l’inizio della finestra 
sullo schermo (angolo in alto a sinistra), mentre premendo 
gli stessi tasti con il tasto SHIFT si possono modificare le 
dimensioni della finestra; la cosa migliore è provare questi 
comandi per vederne il funzionamento. 
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I colori di INK, PAPER e BORDER possono essere modifi¬ 
cati premendo i tasti I, P e B e successivamente uno dei tasti 
tra 0 e 7, in particolare lo spessore del bordo può essere 
modificato tramite i tasti di cursore a destra e cursore a 
sinistra (vicini a CTRL), terminata la scelta del colore si 
ritorna ai comandi principali premendo il tasto ESC. 

Per semplicità nel programma vengono usati solo gli 8 
colori pieni ma, naturalmente, è possibile usare anche le 
altre sfumature di colore, mostrate con il programma prece¬ 
dente, specificando nelle relative istruzioni il numero di 
canale assegnato alla finestra. 

Appena si ha sullo schermo la finestra definitiva, pre¬ 
mendo il tasto F5, viene visualizzata la lista delle istruzioni 
in SuperBASIC da inserire nel proprio programma per crea¬ 
re una finestra con le stesse dimensioni, colore e posizione 
sullo schermo. 

Anche se le finestre vengono disegnate con il computer 
nel MODO 8 (bassa risoluzione) i dati contenuti nelle istru¬ 
zioni valgono anche per il MODO 4, questo perché le coor¬ 
dinate indicate sono riferite ai pixel; naturalmente i colori 
non saranno 8 ma 4. 

Alternativamente è possibile ritornare al menù premendo 

FI. 


1000 REMark * DESIGN FINESTRE QL » 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c) Gruppo Edit. Jackson 

1050 REMark - 

1060 set : in_dati : start_win 

1070 REPeat comandi 

1080 key=C0DE(INKEY«<5)) 

1090 SELect ON key 
1100 =232:EXIT comandi 

1110 =248:Fine 

1120 =208!IF inu>0 THEN inv=inv-1:win_new 

1130 =216:IF inv+dimv<255 THEN inv=inv+1:win_new 

1140 =200:IF ino+dimo<511 THEN ino=ino+1:win_new 

1150 =192:IF ino>0 THEN ino=ino-1:win_new 

1160 =196:IF dimo>2 THEN dimo=dimo-1:win_new 
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1 170 =204sIF ino+dimoOll THEN dimo=dimo*l:win_new 

1180 =220:IF inu+dimu<255 THEN dimv=dimv+1:win_new 

1190 =212:1F dimv>2 THEN dimv=dimv-l:win_new 

1200 =73,66,80,98,105,112 : col ori 

1210 END SELect 

1220 END REPeat comandi 

1230 PAPER 45,0;BORDER 45,0,0;CLS 45;CL0SE #5 
1240 8EEP 3000,10 
1250 LRUN mdvljnenu 
1260 STOP 

1270 REMark-- 

1280 DEFine PROCedure set 
1290 MODE 8:SCALE 200,1,1 
1300 PAPER 0 :INK 7 

1310 FLASH 0 : UNDER 0 

1320 OVER 0:FILL 0 

1330 CS1ZE 2,0:CLS:CLS 40 
1340 END DEFine set 

1350 REMark - 

1360 DEFine PROCedure contr_k 
1370 CLS #0 

1380 AT 40,3,0 :PR1NT 40," Fl_Esci F5_Fine" 

1390 AT 40,1,0SPRINT 40," "jCHR»(188);CHR*<189);CHRS<190);CHR»<191); 
1400 PRINT 40," _Spostamento_inizio_tinestra" 

1410 AT 40,2,0SPRINT 40," SHIFT + "jCHR4<188);CHR4<189);CHR*<190)j 
1420 PRINT 40,CHR»<191)j" _Dimens i on t_f i nestra" 

1430 AT 40,0,0:PRINT 40," Tasti : I__INK P_PAPER B_BORDO* 

1440 END DEFine contr_k 

1450 REMark - 

1460 DEFine PROCedure start_win 

1470 ino=160:inv=50 

1480 dimo=150ìdimu=100 

1490 c_ink=0:c_paper=6 

1500 c_bordo=6:l_bordo=0 

1510 OPEN 45,scr 

1520 WIND0U 45,dimo.dimu,ino,inu 

1530 INK 45,c_ink 

1540 PAPER 45,c_paper 

1550 BORDER 45,1_bordo,c_bordo 

1560 CLS 45 

1570 END DEFine start_win 

1580 REMark - 

1590 DEFine PROCedure in_dati 

1600 REPeat inp 

1610 CLS 40 _ 

1620 INPUT 40," Inserire N.ro canale < >3 >"!cana!e 

1630 IF canale>3 THEN EXIT inp 

1640 END REPeat inp 

1650 contr_k 

1660 END DEFine in_dati 

1670 REMark - 

1680 DEFine PROCedure colori 
1690 CLS 40 

1700 AT 40,0,0:PRINT 40," Colori: tasti da 0 a 7" 

1710 AT 40,1,0:PRINT 40," Largezza Bordo: tasti ";CHR$<188);" e " 
iCHR*<189> 
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1720 AT *0,2,0:PRINT «0,* tasto ESC per continuare" 

1730 REPeat tasti 
1740 t=C0DE<INKEY*<5>> 

1750 SELect 0N t 

1740 =48 T0 55 

1770 IF key=44 OR key=98 THEN c_bordo=t-48:win_new 

1780 IF key=73 OR key=105 THEN cj nk=t-48:wi n_new 

1790 IF key=80 OR key=112 THEN c_paper=t-48:win_new 

1800 =192:IF l_bordo>0 THEN l_bordo=l_bordo-l:win_new 

1810 =200 :l_bordo=l_bordo«l:win_new 

1820 =27sEXIT tasti 

1830 END SELect 

1840 END REPeat tasti 

1850 contr_k 

1840 END DEFine colori 

1870 REMark - 

1880 DEFine PROCedure fine 
1890 PAPER #5,0: BORDER #5,0.0 

1900 CLS #5 :CLS 

1910 AT 4,5:PRINT "OPEN #";canale ; *,scr_";dimoj"x"jdimvj"a*jinoj"x"jinv 

1920 AT 8,5sPRINT *INK #"jcanale ;","jc_ink 

1930 AT 10,5:PRINT "PAPER #"scanai ei*,*;c_paper 

1940 AT 12,5:PRINT "BORDER #"; canal es","sl_bordo;",";c_bordo 

1950 AT 14,5:PRINT "CLS #";canale 

1940 CLS #0:PRINT #0," Premere ENTER per continuare" 

1970 INPUT #0,enter* 

1980 set : in_dati : start_win 

1990 END DEFine fine 

2000 REMark - 

2010 DEFine PROCedure win_new 

2020 INK #5,7:PAPER #5,0 

2030 BORDER #5,0,0:CLS «5 

2040 UINDOU #5,dimo,dimu,ino,inv 

2050 INK #5,c_ink 

2040 PAPER #5,c paper 

2070 BORDER #5,ì_bordo,c_bordo 

2080 CLS #5 

2090 END DEFine win_new 

2100 REMark - 
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ITALIA 


Il programma disegna i contorni dell'Italia in due scale 
diverse selezionabili tramite i tasti F3 ed F4 (mentre con FI 
si ritorna al menù). 

Così com’è, il programma rappresenta più che altro una 
dimostrazione della grafica, tuttavia la parte principale che 
disegna l'Italia può essere inserita in altri programmi di tipo 
educativo, di quiz, ecc. 

Per far ciò occorre eliminare dal programma le linee da 
1000 a 1220 tranne la linea 1060 con la sola procedura set 
ed ancora le linee 1240 e 1250. 

In questo modo per avere il disegno basterà chiamare la 
procedura italici, mentre le sue dimensioni ed il punto d’ini¬ 
zio dipenderanno dalla istruzione SCALE e dal valore delle 
variabili x ed y specificate nella procedura set. 

Il disegno dell’Italia viene disegnato in 3 colori, ed anche 
in questo caso è possibile modificare il programma in modo 
che il disegno sia realizzato con un solo colore di INK 
specificato in set, semplicemente eliminando dal pro¬ 
gramma anche le linee 1260, 1330 e 1340. 

Infine, cambiando i codici contenuti nelle linee DATA in 
fondo al programma, è possibile disegnare sullo schermo 
un'altra nazione o anche dei disegni di altro genere usando 
lo stesso principio. 


1000 REMark »»»* ITALIA 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c) Gruppo Edit. Jackson 
1050 REMark - 
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1040 set : contr_k 
1070 REPtat comandi 
1080 kty“CODE<INKEY*) 

1090 IF key=232 THEN EXIT comandi 

1100 IF key=240 THEN SCALE 120,1 ,1 : ital i a 

1110 IF key=244 THEN SCALE 200,1,1 :italia 

1120 END REPtat comandi 

1130 BEEP 3000,10 

1140 LRUN tndvl menu 

1150 STOP 

1140 REMark - 

1170 DEFine PROCtdurt contr k 
1180 CLS «0 

1190 PRINT 80," FI_Esci* 

1200 PRINT HO," F3_Scala 120 F4_Scala 200" 

1210 END DEFine contr k 

1220 REMark - 

1230 DEFint PROCtdurt itali a 

1240 IF key-240 THEN x=50 i y=120 

1250 IF key=244 THEN x=105 .■ y=140 

1240 INK 4 : j»y 

1270 CLS : RESTORE 1480 

1280 REPeat plot 

1290 READ d 

1300 IF d=0 THEN y=y-l 

1310 IF d*l 111 THEN EXIT plot 

1320 IF d>0 THEN POINT x+d-47,y 

1330 IF y-j-38 THEN INK 7 

1340 IF y»j-75 THEN INK 2 

1350 END REPtat plot 

1340 INK 7 

1370 END DEFint Italia 

1380 REMark - 

1390 DEFint PROCtdurt set 

1400 MODE 8iSCALE 200,1,1 

1410 PAPER 0:INK 7 

1420 FLASH 0: UNDER 0 

1430 0WER 0 : FILL 0 

1440 CSIZE 2,0:CLS:CLS «0 

1450 key*244 : x=105 : y=140 : italia 

1440 END DEFine set 

1470 REMark.. 

1480 DATA 94,0,88,89,91,92,93,0,84,87,88,93,0,82,83,85,94,0,81,83,84,95,0 

1490 DATA 79,82,94,97,98,99,0,78,80,81,100,101,102,103,0,44,45,72,78,104,105,0 

1500 DATA 44,45,71,73,74,75,74,77,78,103,0,44,44,71,103,104,0 

1510 DATA 43,47,48,70,105,0,59,41,42,48,70,104,0,54,55,54,57,58,40,49,104,0 

1520 DATA 53,101,104,0,54,100,101,102,103,104,105,0,55,100,101,104,107,0 

1530 DATA 55,99,107,0,54,95,94,97,98,0,55,94,0,54,94,0 

1540 DATA 52,53,94,0,52,95,0,53,95,0,53,94,0,54,94,95,94,0,53,94,0 

1550 DATA 53,94,0,53,94,0,53,47,48,49,94,0,53,45,44,70,71,94,0 

1540 DATA 54,55,44,72,73,95,0,54,57,58,59,43,73,74,95,0,59,42,75,74,94,0 

1570 DATA 59,42,77,97,0,58,59,40,41,78,98,0,78,99,100,0,79,101,0,79,102,0 

1580 DATA 79,103,0,79,104,105,0,80,105,0,80,105,0,81,104,0,81,104,0,75,81,107,0 

1590 DATA 81,82,107,0,83,107,0,77,78,79,83,107,0,79,84,108,0,74,85,108,0 

1400 DATA 84,109,0,84,87,88,110,0,83,85,89,111,0,90,112,0,90,113,114,0 
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1410 DATA 91,92,115,0,93,116,117,0,94,118,119,122,123,124,125,0,94,120,121,126,0 
1420 DATA 95,125,0,94,124,0,97,124,0,98,99,125,124,0,69,100,102,103,127,128,129 
1430 DATA 0,42,69,101,104,105,104,107,130,0,61,67,68,70,71,108,131,132,133,0 
1640 DATA 66,72,108,134,135,0,60,45,71,109,134,0 

1450 DATA 60,41,62,63,64,72,109,110,111,137,138,0,40,72,109,112,139,140,0 
1440 DATA 60,41,72,107,113,114,115,141,142,0,42,73,112,113,114,134,135,143,0 
1670 DATA 42,73,110,117,133,136,144,0,62,72,117,132,137,138,139,140,145,0 
1680 DATA 62,72,117,132,142,144,0,63,71,117,118,131,143,147,0 
1490 DATA 42,72,119,122,131,143,146,0,62,72,120,121,123,130,143,144,146,0 
1700 DATA 42,72,123,124,131,145,144,0,63,72,124,130,0,63,72,124,130,0 
1710 DATA 42,43,72,125,130,0,62,71,125,131,132,133,0,61,71,124,134,0 
1720 DATA 61,71,126,135,0,61,71,127,135,0,59,41,47,48,49,71,127,135,0 
1730 DATA 42,66,70,127,135,0,41,43,64,127,135,0,63,64,65,128,133,134,135,0 
1740 OATA 128,132,0,128,131,0,125,126,127,131,0,118,126,131,0,116,126,131,0 
1750 DATA 124,130,131,0,118,125,129,0,122,124,125,128,0 

1760 DATA 103,117,120,121,122,124,128,0,98,101,102,103,114,115,116,118,119 
1770 DATA 122,124,128,0,92,97,99,100,104,105,109,110,111,112,113,121,124,125 
1780 DATA 126,127,0,94,94,104,107,108,120,0,96,120,0,96,119,0,97,119,0 
1790 OATA 98,99,100,101,119,0,102,103,118,0,104,118,0,105,104,118,0 
1800 DATA 107,108,120,0,109,110,111,112,121,0,113,120,0,114,119,0 
1810 DATA 91,114,115,118,119,0,92,114,117,0,1111 
1820 REMark - 
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PLOTTER 


Plotter è un programma per disegnare sullo schermo ed 
eventualmente modificare il disegno che, una volta finito, 
può essere memorizzato su una cartuccia, come anche è 
possibile caricare da una cartuccia presente sul Microdrive 
2 un disegno già fatto ed ancora visualizzare un disegno 
dimostrativo presente sulla stessa cartuccia con i pro¬ 
grammi. 

La prima cosa da fare per usare il programma è quella di 
scegliere il colore di fondo inserendo un numero tra 0 e 7, e 
subito dopo il modo grafico premendo il tasto 4 o il tasto8. 

Il computer visualizza l'area nella quale si può disegnare 
ed un puntino che rappresenta la posizione iniziale. 

Il puntino può essere spostato per disegnare tramite i 
tasti di controllo cursore (vicini ai tasti CTRL e ALT) mentre 
il colore del puntino può essere modificato in qualsiasi 
momento premendo uno dei tasti di colore (0...7). 

Da notare che i tasti di controllo cursore, se premuti con il 
tasto CTRL, assumono anche un'altra funzione. Ad esempio, 
se si tiene premuto il tasto CTRL con la freccia a destra, il 
puntino non si sposta verso destra ma obliquamente 
andando verso destra ed in basso; lo stesso vale per gli altri 
tre tasti la cui direzione, con il tasto CTRL premuto, risulta 
spostata di 45° in senso orario (la cosa migliore è quella di 
provare). 

Un altro tasto importante è F3 che, oa ni volta che viene 
premuto consente ai passare dal modo disegno (il puntino 
spostandosi lascia una traccia del colore selezionato in quel 
momento) al modo modifiche e spostamenti (il puntino si 
sposta senza che rimanga una traccia e cancella tutto ciò su 
cui passa) e viceversa. 
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Finito il disegno lo si può memorizzare, per far questo 
occorre premere il tasto F5 e subito dopo il tasto F2, quindi 
il computer chiede di inserire il nome con il quale va regi¬ 
strato il disegno e lo registra sulla cartuccia nel Microdrive 
2 . 

Per usare il comando di Save (F2), come anche il comando 
di Load (F4), è essenziale che, al momento di registrare o 
caricare un disegno, nel Microdrive 2 sia già presente una 
cartuccia formattata, altrimenti il programma si blocca 
(anche se può essere fatto girare di nuovo con RUN), inoltre, 
nel caso di Load, il nome del file relativo al disegno da 
caricare deve essere esattamente uguale a quello presente 
sulla cartuccia. 

Sempre dopo aver premuto F5, con ESC si può ritornare 
alla situazione precedente mentre con CTRL ed F4 si can¬ 
cella tutto e si ricomincia da capo con un nuovo disegno. 

Infine premendo CTRL ed F3 si può caricare automatica- 
mente, dalla cartuccia con i programmi (che deve trovarsi 
nel Microdrive 1), un disegno dimostrativo (plot—demo) 
che a sua volta può essere modificato. 


1000 REMark *»** PLOTTER «*«« 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark (c) Gruppo Edit. Jackson 

1050 REMark - 

1040 set 

1070 REPeat comandi 
1080 key=C0DE<INKEY*) 

1090 SELect 0N key 

1100 =232 : EXIT comandi 

1110 =240 : stkn=sdm*-l 

1120 =248 : ext k 

1130 =48 TO 55 : colore=key-48 

1140 =208s1F y>0 THEN y=y-liplot 

1150 =214:IF y<199 THEN y=y+l:plot 

1140 =200ìIF x<447 THEN x=x+l:plot 

1170 =192iIF x>0 THEN x=x-l:plot 

1180 =210 :1F y>0 AND x<447 THEN y=y-l:x=x+liplot 

1190 =218:IF y<199 ANO x>0 THEN y=y+l:x=x-l:plot 

1200 =194: 1F y>0 WO x>0 THEN y=y-l :x=x-l :plot 
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1210 

=202: IF y<199 WD x<447 THEN y=y+l :x=x+l :plot 


1220 

END SELect 


1230 

END REPeat comandi 


1240 

BEEP 3000,10 


12S0 

LRUN mdvl menu 


1260 

STOP 


1270 

REMarK---- 


1280 

DEFine PROCtdure contr k 


1290 

CLS NO 


1300 

AT NO, 1,0 : PRJNT NO," " 4 et* 4 * e CTRL Colori Tasti 

0... 7" 

1310 

AT N0,2,0:PRINT NO," F3 DisegnoNModitiche e spostamenti 

■ 

1320 

AT NO,3,0:PR1NT NO," F5 Save\Load\Demo\New Fl_Esci" 


1330 

END DEFine contr k 


1340 

REMark - 


13S0 

DEFine PROCedure ext k 


1360 

CLS NO 


1370 

AT NO,1,0 ! PR1NT NO," F2 Savelsu MDV2) F4 Loadtda MDV2>" 

1380 

AT NO,2,0 : PR1NT NO," ESC Continua CTRL+F4 Nuovo disegno" 

1390 

AT NO,3,0 s PRINT NO," CTRL+F3 Disegno dimostrativo (MOVI)" 

1400 

REPeat tasti 


1410 

t=CODE<INKEY*> 


1420 

SELect ON t 


1430 

=236,244 : saveload : EXIT tasti 


1440 

=245 : set i EXIT tasti 


1450 

=241 : MODE 8 : w=2 : LBYTES mdvl plot demo,133120 ! 

EXIT tasti 

1460 

=27 : EXIT tasti 


1470 

END SELect 


1480 

END REPeat tasti 


1490 

contr k 


1500 

END DEFine ext k 


1510 

REMark--- 


1520 

DEFine PROCedure saveload 


1530 

CLS NO i PRINT NO 


1540 

INPUT NO," Inserire nome -file ";nome* 


1550 

1F t=236 THEN SBYTES "mdv2 * 4 nome*,133120,25600 


1560 

1F t=244 THEN LBYTES *mdv2 " 4 nome*,133120 


1570 

END DEFine saveload 


1580 

REMark - 


1590 

DEFine PROCedure set 


1600 

CLS 


1610 

REPeat tondo 


1620 

INPUT "Inserire colore tondo ";p 


1630 

IF p>=0 AND p<6 THEN EXIT tondo 


1640 

END REPeat tondo 


1650 

PRINT 


1660 

PRINT "Premere il tasto 4 per MODO 4 colori o il tasto 8 
8 col ori* 

per MODO 

1670 

REPeat modo 


1680 

c=C0DE<1NKEY») 


1690 

IF c=56 THEN MODE 8:w=2:EXIT modo 


1700 

IF c=52 THEN MODE 4:w=l:EXIT modo 


1710 

END REPeat modo 


1720 

SCALE 200,1,1 


1730 

colore=7 : IF p>3 THEN colore=0 


1740 

PAPER p : INK colore 
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1750 FLASH 0:UNDER 0 

1760 OVER OiFILL 0 

1770 CSIZE 2,0:CLS 0 

1780 CSI2E #0,2,0:CLS «0 

1790 sdm=l i x=10 : y=10 i plot 

1800 c t*=CHR*<188)4CHR*<189>4CHR*<190 >4CHR*<191) 

1810 contr k 

1820 END DEFlne s*t 

1830 REMark--— 

1840 DEFine PROCedure plot 

1850 BLOCK w,1,x,y,colore 

1860 IF »dm<0 THEN BLOCK w,l,x,y,p 

1870 END DEFine plot 

1880 REMark - 
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PIANO 2 OTTAVE, 
25 NOTE 


Il programma trasforma il QL in uno strumento musicale a 
2 ottave per un totale di 24 note più una. 

Certo la definizione di ‘piano’ è un po' esagerata ma con 
esso è comunque possibile suonare delle semplici melodie 
(per ascoltare l'inizio di una canzone che vi è certamente 
familiare provate a premere in sequenza i tasti 8,8,8, 
T,Y,Y,T,T,X,X,Z,Z,8). 

La lista delle note e dei relativi tasti è la seguente: 


DO 

W 

DO 

Z 

DO# 

3 

DO# 

s 

RE 

E 

RE 

X 

RE# 

4 

RE# 

D 

MI 

R 

MI 

C 

FA 

T 

FA 

V 

FA# 

6 

FA# 

G 

SOL 

Y 

SOL 

B 

SOL# 

7 

SOL# 

H 

LA 

U 

LA 

N 

LA# 

8 

LA# 

J 

SI 

1 

SI 

M 



DO 

,< 


I tasti possono essere premuti solo uno alla volta in quanto 
il QL dispone di una sola voce. 
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1000 REMark PIANO 2 OTTAVE 25 NOTE 

1010 REMark - 

1020 REMark di Cattano Marano 

1030 REMark - 

1040 REMark <c) Gruppo Edit. Jackson 

1050 REMark - 

1040 stt : t-13000 

1070 PR1NT HO,* FI_Esci* 

lOCO REPtat tasti 
1090 kty=CODE<INKEY*> 

1100 SELtct ON kty 

Ilio =232 : EXIT tasti 
1120 =87,119 ! BEEP t,80 

1130 =35,51 ì BEEP t,75 

1140 =49,101 : BEEP t,70 

1150 =34,52 : BEEP t,44 

1140 =82,114 : BEEP t,42 

1170 =84,114 : BEEP t,57 

1180 =94,54 : BEEP t,53 

1190 =89,121 : BEEP t,50 

1200 =38,55 : BEEP t,47 

1210 =85,117 : BEEP t,43 

1220 =42,54 i BEEP t,40 

1230 =73,105 ! BEEP t,38 

1240 =90,122 i BEEP t,35 

1250 =83,115 i BEEP t,33 

1240 =88,120 : BEEP t,30 

1270 =48,100 : BEEP t,28 

1280 =47,99 : BEEP t,24 

1290 =84,118 : BEEP t,24 

1300 =71,103 : BEEP t,22 

1310 =44,98 : BEEP t,20 

1320 =72,104 : BEEP t,19 

1330 =78,110 i BEEP t,17 

1340 =74,104 : BEEP t,14 

1350 =77,109 : BEEP t,14 

1340 =44,40 i BEEP t,13 

1370 END SELect 
1380 END REPtat tasti 
1390 BEEP 3000,10 
1400 LRUN tridui menu 
1410 STOP 

1420 REMark - 

1430 DEFint PROCtdure stt 

1440 MODE 8:SCALE 200,1,1 

1450 PAPER 0 :INK 7 

1440 FLASH 0 :UNDER 0 

1470 OVER OrFILL 0 

1480 CSI2E 2,0:CLS 

1490 CS1ZE 40,2,0:CLS «0 

1500 END DEFint stt 

1510 REMark - 
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PROGRAMMATORE 
DI SUONI 


Il generatore di suoni del QL viene comandato dall’istru¬ 
zione BEEP che può contenere nella sua forma più com¬ 
plessa una serie di parametri le cui combinazioni produ¬ 
cono suoni diversi. 

Questo programma serve appunto per scegliere i valori 
da inserire in una istruzione BEEP per ottenere il suono 
desiderato. 

Nella forma più semplice è possibile scegliere la fre¬ 
quenza del suono tramite i tasti di cursore in alto e cursore 
in basso (i tasti vicini ad ALT). 

A questa suono iniziale può essere aggiunto un secondo 
suono premendo gli stessi tasti con il tasto ALT; questa 
seconda frequenza non è udibile se non si definiscono dei 
valori per il gradiente X ed il gradiente Y (stessi tasti di prima 
ma premuti con SHIFT o CTRL). A secondo dei valori dei 
gradienti, il generatore passa più o meno velocemente e per 
gradi più o meno ampi da una frequenza all'altra. 

Comunque, la cosa migliore è quella di provare, quanto 
detto. 

Oltre alle frequenze ed ai gradienti, è possibile aggiun¬ 
gere ad una istruzione BEEP degli altri effetti; per non com¬ 
plicare i comandi, con il programmatore di suoni può essere 
aggiunto solo l'effetto Wrap (con il tasto W), per gli altri 
effetti si consiglia di leggere quanto scritto sul manuale del 
QL. 

I dati stabiliti con il programmatore di suoni sono gli stessi 
che vanno inseriti nell’istruzione BEEP all'interno del pro¬ 
prio programma per ottenere lo stesso suono, tranne che 
per quanto riguarda la durata che va definita a parte. 
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Oltre ai comandi già detti, è disponibile il tasto F3 per 
azzerare tutti i valori ed il tasto FI per ritornare al menù. 


1000 REMark PROGRAMMATORE 01 SUONI 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c> Gruppo Edit. Jackson 

1050 REMark--- 

1040 set 

1070 REPeat suono 

1080 BEEP 10000,pF,sF,gx, gy ,w 

1090 key=C0DE<INKEY*) 

1100 1F key“232 THEN EXIT suono 

1110 IF key=240 THEN set 

1120 comandi 

1130 END REPeat suono 

1140 BEEP 3000,10 

1150 LRUN md«l_raenu 

1140 STOP 

1170 REMark - 

1180 DEFine PROCedure schermo 

1190 CLS : INK 5 

1200 AT 2,0:PRINT ■ ';F* 

1210 AT 4,0 :PR1NT * ALT*' ;F* 

1220 AT 4,0 :PR1NT 'SHIFT+'jF* 

1230 AT 8,0:PRINT • CTRL+*;F* 

1240 AT 10,0 SPRINT ■ U' 

1250 INK 3 : PAPER 0 

1240 AT 2,9:PRINT ■Prima Frequenza" 

1270 AT 4,9sPRINT 'Seconda Frequenza' 

1280 AT 4,9:PRINT 'Gradiente X' 

1290 AT 8,9sPRINT 'Gradiente Y' 

1300 AT 10,9:PRINT *Urap" 

1310 INK 7 

1320 CLS *0 SPRINT *0 

1330 PRINT «0,' FI_Esc i F3_Set parametri a 0' 

1340 END DEFine schermo 

1350 REMark.. 

1340 DEFine PROCedure dati 
1370 AT 2,25SPRINT pFj* 

1380 AT 4,27sPRINT sF;* 

1390 AT 4,21 SPRINT gx,-* 

1400 AT 8,21 SPRINT gy;" 

1410 AT 10,14SPRINT w;' 

1420 END DEFine dati 

1430 REMark - 

1440 DEFine PROCedure comandi 
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140U StLeCt UN Kiy 

1460 =216:IF p-f<255 THEN pF=pF*l 

1470 -208:1F pOO THEN pt=pt-l 

1480 =217:IF sf<255 THEN sf=sf+l 

1490 =209sIF sOO THEN st=st-l 

1500 =212:IF gx<15 THEN gx=gx+l 

1510 =220:IF gx>0 THEN gx=gx-l 

1520 =210:IF gy<7 THEN gy=gy+l 

1530 =218:IF gy>-8 THEN gy=gy-l 

1540 =87,119:w=w+l:IF w=16 THEN w=0 

1550 END SELect 

1560 dati 

1570 END DEFine comandi 

1580 REMark - 

1590 DEFine PROCedure set 
1600 MODE 8:SCALE 200,1,1 

1610 PAPER 0 :INK 7 

1620 FLASH 0:UNDER 0 

1630 OYER 0:FILL 0 

1640 CSI2E 2,0:CLS 

1650 CSIZE 40,2,0:CLS «0 

1660 pf=0:s-f=0:gx=0 

1670 gy=0:w=0 

1680 F*=CHR*<190) & CHR$(191) 

1690 schermo : dati 

1700 END DEFine set 

1710 REMark - 
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ROULETTE 


Utilizzando l’alta risoluzione e le istruzioni grafiche del 
QL, si è potuta realizzare una roulette abbastanza reali¬ 
stica (ad esempio, la pallina rallenta poco prima di fermarsi 
come nella roulette vera). 

Il programma dispone di soli due comandi, il tasto F5 che 
fa girare la roulette in modo da avere un nuovo numero, ed 
il tasto FI per ritornare al menù. 

Per maggiore precisione l’ultimo numero uscito viene 
visualizzato, in caratteri più grandi, al centro della roulette. 


1000 REMark ***» ROULETTE **»* 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark <c> Gruppo Edit. Jackson 

1050 REMark - 

1040 set : roulette 

1070 PR1NT *0,\’ FI_Esc i F5_Nuovo numero’ 

1080 REPeat comandi 
1090 n=RND(50 TO 123) 

1100 key=C0DE<INKEY4) 

1110 IF key=232 THEN EXIT comandi 

1120 IF key=248 THEN numero 

1130 END REPeat comandi 

1140 BEEP 3000,10 

1150 LRUN mdvl_menu 

1160 STOP 

1170 REMark--- 

1180 DEFine PROCedure roulette 
1190 RESTORE 1600 : c=l 
1200 F0R a=0 T0 353 STEP 9.729 

1210 CURSOR 1 50<COS<RAO< a))*212,95»S1N<RAD< a)) + 95 

1220 READ p,i,n$ 

1230 num*<c>=n4 

1240 p*(c)=p : i*<c> =i : c=c + l 

1250 PAPER p : INK i : PR1NT n* 
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1260 END FOR a 

1270 PAPER 0 ! 1NK 7 

1280 END DEFine roulette 

1290 REMarK--- 

1300 DEFine PROCedure numero 

1310 v=0 : tp=l ! t=!5/n : m=<n/3)»22 

1320 FOR a=0 TO n*9.729 STEP 9.729 

1330 v=v+1 :1F u=38 THEN u=l 

1340 BLOCK 4,5,x,y,l 

1350 x=124*COS<RAD<a>>+220 

1340 y=85»SIN<RAD< a)> + 98 

1370 BLOCK 4,5,x,y,7 

1380 BEEP 300,200 

1390 1F a>m THEN tp=tp+t 

1400 PAUSE tp 

1410 END FOR a 

1420 PAPER p*<u):INK i*(u):CSI2E 3,1 

1430 CURSOR 210,80 : PR1NT num*<«> 

1440 PAPER 1 : 1NK 7 : CS1ZE 2,0 

1450 END DEFine numero 

1440 REMarK - 

1470 DEFine PROCedure set 
1480 MODE 8:SCALE 200,0,0 

1490 PAPER 1 :INK 7 

1500 FLASH 0:UNDER 0 

1510 OVER 0:FILL 0 

1520 CSIZE 2,0;CLS 

1530 CSIZE NO,2,0:CLS NO 

1540 DIM p*<37) : DIM i*<3?> 

1550 x=0 : y=0 : DIM nuro*<37,2> 

1540 BLOCK 50,29,194,80,0 

1570 BLOCK 50,30,200,75,7 

1580 END DEFine set 

1590 REMarK - 

1400 DATA 0,2,*5 *,7,0,"24",0,2,“! 6",7,0,"33“,0,2,* 1 
1410 DATA 7,0,*20",0,2,"14",7,0,"31",0,2,"9 *,7,0,"22 
1420 DATA 0,2,"18",7,0,"29",0,2," 7",7,0,"28",0,2,"12 
1430 DATA 7,0,"35“,0,2," 3",7,0,"24*.4,0," 0",0,2,“32 
1440 DATA 7,0,"15",0,2,“19",7,0," 4",0,2,"21",7,0," 2 
1450 DATA 0,2,*25",7,0,"17",0,2,"34",7,0,"4 ",0,2,"27 
1440 DATA 7,0,"13",0,2,"34",7,0,"11",0,2,"30”,7,0,*8 
1470 DATA 0,2,*23",7.0,"10” 

1480 REMarK --- 
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L’ultimo programma di questo libro sul QL produce il 
suono di una sirena; l'unico comando disponibile è quello 
per ritornare al menù (FI). 

La linea 1070 del programma, che produce l'effetto, può 
essere usata anche in altri programmi come, ad esempio, 
nei giochi. 


1000 REMark »»** SIRENA **»* 

1010 REMark - 

1020 REMark di Gaetano Marano 

1030 REMark - 

1040 REMark (c) Gruppo Edit. Jackson 

1050 REMark - 

1060 set : PRINT »0,V FI_Esc i * 

1070 BEEP 0,0,60,0,1 
1080 REPeat fine 

1090 1F CODE<INKEY«>=232 THEN EXIT Fine 

1100 END REPeat Fine 

1110 BEEP 3000,10 

1120 LRUN mdvl_menu 

1130 STOP 

1140 REMark - 

1150 DEFine PROCedure set 

1160 MODE 8:SCALE 200,1,1 

1170 PAPER 0 :INK 7 

1180 FLASH 0:UNDER 0 

1190 OVER 0:F1LL 0 

1200 CS1ZE 2,0:CLS 

1210 CSIZE DO ,2,0 :CLS «0 

1220 END DEFine set 

1230 REMark - 
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BOOT 


1000 REMark *»»« boot **** 

1010 REMark - 

1020 REMark LIBRO: PROGRAftlI PER QL 

1030 REMark - 

1040 set 

1050 CSIZE 2,1 : CURSOR 69,10 
lOéO 1NK 4:PRINT "PROGRAMMI PER 
1070 INK 3:PRINT "SINCLAIR *i 
1080 CSIZE 3,1 

1090 PAPER 1 :INK 7:PRINT "QL" 

1100 BLOCK 4,20,341,10,1 
1110 BLOCK 34,2,341,8,1 
1120 INK 6 : CSIZE 2,1 
1130 FOR a=l TO 45 STEP 7 
1140 LINE a,200 T0 a,162 
1150 END FOR a 

1140 FOR a=331 TO 283 STEP -7 

1170 LINE a,200 TO a,142 

1180 END FOR a 

1190 LINE 44,200 TO 290,200 

1200 LINE 44,142 TO 290,162 

1210 CURSOR 147,80 

1220 PAPER 0 :INK 3:PRINT "di "i 

1230 INK 5:PRINT "Gaetano Marano* 

1240 INK 6 

1250 FOR a=l TO 118 STEP 7 
1240 LINE a,122 TO a,100 
1270 END FOR a 

1280 FOR a=331 TO 283 STEP -7 
1290 LINE a,122 TO a,100 
1300 END FOR a 

1310 LINE 112,122 TO 290,122 

1320 LINE 112,100 TO 290,100 

1330 CSIZE 2,0:CURSOR 14,140 

1340 INK 4:PRINT "<C> 1985 "j 

1350 INK 7:PR1NT “Gruppo Editoriale Jackson" 

1340 LINE 1,44 TO 1,26 

1370 LINE 9,44 TO 9,24 

1380 LINE 331,44 TO 331,26 

1390 LINE 323,44 TO 323,26 

1400 LINE 9,44 TO 323,44 

1410 LINE 9,26 TO 323,24 

1420 PAUSE 200:BEEP 3000,10:INK 4:CLS 

1430 AT 2,1:PRINT "Dello stesso Autore:" 

1440 INK 7:AT 5,1:PRINT "- 77 PROGRAPMI PER "; :INK 3:PR1NT "SPECTRUM" 

1450 INK 7:AT 7,1:PRINT mCINTOSH " ; : INK 2:PRINT *120 IDEE PER L'APPLE’ 

1460 INK 7:AT 9,1:PRINT *- EPSON HX20 "; :INK 5:PRINT "IL BASIC E 44 PROGRAMMI" 
1470 INK 7:AT 11,1iPRINT •- 66 PROGRAMMI PER ";:INK 3:PRINT "ZX81 ♦ HARDWARE" 
1480 INK 7:AT 13,1:PRINT "- GLI tfIPL. NORTON «;:1NK 4:PRINT *LM 3900 & LM359" 
1490 PAUSE 200:BEEP 3000,10 
1500 LRUN raduljnenu 
1510 STOP 

1520 REMark - 
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1530 DEFine PROCedure set 
1540 MODE 8iSCALE 200,1 ,1 
1550 PAPER 0:1NK 7 

1580 FLASH 0:UNDER 0 

1570 OVER 0:FILL 0 

1580 CSI2E 2,0 :CLS 

1590 CSIZE NO,2,0:CLS NO 
1600 END DEFine set 
1610 REMark - 


MENU 

1000 REMark *»»* MENU **** 

1010 REMark - 

1020 REMark LIBRO: PROGRAMMI PER QL 

1030 REMark - 

lO'u set : i=3 : k=7 

1050 CSIZE 3,1:PAPER 1:INK 7 

1060 AT 2,20:PRINT • MENU * 

1070 CSIZE 2,0:PAPER 0 

1080 1NK k:AT 2,1:PRINT "A - ; :INK i:PRINT *- SCRITTE PUBBLICITARIE* 

1090 INK k:AT 4,1:PRINT *B *j:INK i:PRINT ■- LETTURA VELOCE* 

1100 INK k:AT 6 ,I:PRINT *C *ì:INK i:PR1NT *- OROLOGIO PER QL* 

1110 INK k:AT 8,1:PRINT *D *;:INK iSPRINT *- SELEZIONE COLORI QL* 

1120 INK k:AT 10,1:PR1NT *E * 5 :INK i:PRINT *- DESIGN FINESTRE QL* 

1130 INK k:AT 12,1:PRINT *F *ì:INK i:PRINT *- ITALIA *::INK k:PR1NT ”G *i 
1140 INK i:PRINT *- PLOTTER* 

1150 INK k:AT 14,1:PRINT *H *i:lNK i:PRINT *- PIANO 2_0TTAVE 25_N0TE* 

1160 INK k:AT 16,1:PRINT *1 *ì:INK i:PRINT *- PROGRAfWATORE DI SUONI* 

1170 INK k:AT 18,1:PRINT *J "; :INK i:PR1NT *- ROULETTE *;:1NK k:PRINT ‘K *; 

1180 INK iSPRINT SIRENA* 

1190 PRINT N0,\" Scegliere premendo i tasti A...K* 

1200 REPeat tasti 
1210 k e y=CODE <INKEY*) 

1220 SELect ON key 

1230 =65,97 :BEEP 3000,10:LRUN mdvl_display 

1240 =66,98 :BEEP 3000,10:LRUN mdvljettura 

1250 =67,99 : 8 EEP 3000,10:LRUN mdwl_orologi 0 

1260 =68,100:BEEP 3000,IO:LRUN mdvl_colori 

1270 =69,101:BEEP 3000,10:LRUN mdvl_windows 

1280 =70,102:8EEP 3000,10:LRUN mdvl_Italia 

1290 =71,103:BEEP 3000,10:LRUN mdvl_plotter 

1300 =72,104:BEEP 3000,10:LRUN mdvl_piano 

1310 =73,105:BEEP 3000,10:LRUN mdvl_sound_p 

1320 =74,106:BEEP 3000,10:LRUN mdwl_rou1 ette 

1330 =75,107:BEEP 3000,10:LRUN mdvl_sirena 

1340 END SELect 
1350 END REPeat tasti 
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1340 REMarK - 

1370 DEFine PROCedure set 

1380 MODE 8iSCALE 200,1 ,1 

1390 PAPER OilNK 7 

1400 FLASH 0:UNDER 0 

1410 OVER 0 :F1LL 0 

1420 CS1ZE 2,0:CLS 

1430 CS12E 80,2,0:CLS «0 

1440 LINE 1,1 TO 331,1 TO 331,195 TO 1,195 TO 1,1 

1450 LINE 4,6 TO 328,4 TO 328,190 TO 4,190 TO 4,6 

1440 END DEFine set 
1470 REMarK - 


COPIA 


1000 REMarK »*** COPIA **** 

1010 REMarK - 

1020 REMarK LIBRO: PROGRAMMI PER OL 

1030 REMarK - 

1040 set 

1050 INPUT “Inserire la cartuccia nuova nel 
Microdriwe 2 e premere ENTER“'a* 

1060 FORMAT mdv2_LIBR0_QL 

1070 FORMAT mdv2_LI8R0_QL 

1080 BEEP 3000,10:PRINT 

1090 COPY mdvl_display TO mdv2_display 

1100 BEEP 3000,10:PRINT “display" 

1110 COPY mdvl_lettura TO mdv2_lettura 
1120 BEEP 3000, 10 SPRINT “lettura” 

1130 COPY mdvl_orologio TO mdu2_orologio 
1140 BEEP 3000,10:PRINT “orologio' 

1150 COPY mdvl_colori TO mdu2_colori 
1160 BEEP 3000,10:PRINT “colon" 

1170 COPY mdvl_windows TO mdv2_windows 
1180 BEEP 3000,10:PRINT “Windows* 

1190 COPY mdwl Italia TO mdv2_ltalia 
1200 BEEP 30007l0:PRINT “Italia" 

1210 COPY mdul_plotter TO mdv2_plotter 
1220 BEEP 3000,10:PRINT “plotter“ 

1230 COPY mdvl plot_demo TO mdu2_p1ot_demo 
1240 BEEP 300o7lO:PRINT “plot_demo“ 

1250 COPY mdvl_piano TO mdu2_piano 
1260 BEEP 3000,10:PRINT “piano" 

1270 COPY mdvl_sound_p TO mdu2_sound_p 
1280 BEEP 3000710 SPRINT “sound_p“ 

1290 COPY mdul_roulette TO mdu2_rou)ette 
1300 BEEP 3000,10SPRINT “roulette" 

1310 COPY mdvl_sirena TO mdu2_sirena 
1320 BEEP 3000,10SPRINT “sirena" 

1330 COPY mdul_menu TO mdv2_menu 
1340 BEEP 3000,10SPRINT “menu" 

1350 COPY mdvl_boot TO mdv2_boot 
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1360 BEEP 3000, 10:PRINT -boot‘ 
1370 PAUSE 100 : CLS : DIR mdv2 

1380 REMarK---- 

1390 DEFine PROCedure set 

1400 MODE 8:SCALE 200,1,1 

1410 PAPER 0 :INK 7 

1420 FLASH 0 i UNDER 0 

1430 OUER 0':F1LL 0 

1440 CS1ZE 2,0:CLS 

1450 CSIZE 40,2,0:CLS 40 

1460 END DEFine set 

1470 REMark - 
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Per il QL, che dispone di due Mìcrodrive, è stato realizzato questo libro 
che si potrebbe definire completamente automatico. 

Infatti, tutto ciò che occorre fare è accendere il computer, inserire la 
cartuccia nel Microdrive 1, premere il tasto F2 e quindi scegliere il pro¬ 
gramma da caricare semplicemente premendo uno dei tasti indicati in 
un menù. 

Un’altra caratteristica dei programmi è naturalmente quella di usare, 
attraverso il SuperBASIC, le nuove interessanti prestazioni del QL come 
le finestre, l’alta risoluzione grafica, i caratteri di diverse dimensioni, ecc. 

Dello stesso Autore: 

• 77 PROGRAMMI PER SPECTRUM 

• MACINTOSH 120 IDEE PER IL NUOVO COMPUTER APPLE 

• EPSON HX20 IL BASIC E 46 PROGRAMMI 

• 66 PROGRAMMI PER ZX81 E ZX80 + HARDWARE 

• GLI AMPLIFICATORI DI NORTON LM3900 & LM359 


L. 35.000 


Cod. 425B ISBN 88-7056-276-X 
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